home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-serious-
/
programming
/
e
/
lsestuff
/
except_print.e
< prev
next >
Wrap
Text File
|
1999-11-29
|
931b
|
52 lines
OPT MODULE
EXPORT PROC print_exception(exception, exceptioninfo=NIL)
SELECT exception
->general...
CASE "LIB"
WriteF('library')
CASE "DEV"
WriteF('device')
CASE "WIN"
WriteF('window')
CASE "ARGS"
WriteF('args')
CASE "SCR"
WriteF('screen')
CASE "OPEN"
WriteF('open file')
CASE "PORT"
WriteF('create msgport')
CASE "SIG"
WriteF('alloc signal')
CASE "FONT"
WriteF('open font')
CASE "FPO"
WriteF('find port')
CASE "EXE"
WriteF('systemtaglist')
CASE "NIL"
WriteF('NILCHECK')
CASE "IN"
WriteF('input didnt succeed')
CASE "OUT"
WriteF('output didnt succeed')
CASE "^C"
WriteF('ctrl c break')
CASE "QUIT"
WriteF('program termination\n')
->eget stuff..
CASE "GLE"
WriteF('GLE')
DEFAULT
->
ENDSELECT
IF exceptioninfo
WriteF(' exceptioninfo # : \d\n', exceptioninfo)
IF StrLen(exceptioninfo) > 3
WriteF(' exceptioninfo str : \s[20]\n', exceptioninfo)
ENDIF
ENDIF
ENDPROC